home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…nuary (Partner) - Disc 1 / The Apple Reference and Presentations Library (Disc 1)(January 1994).iso / Frame Technology / US English / FrameMaker 4-68K / System Extras / PS Printer 8.1.1 / PSPrinter / PSPrinter.rsrc / PS_-8188 < prev    next >
Text File  |  1993-10-08  |  1KB  |  161 lines
  1. %%BeginFile: adobe_psp_NON-uniform_graphics
  2. %%Copyright: Copyright 1990-1993 Adobe Systems Incorporated. All Rights Reserved.
  3. /@d
  4. {
  5. gS
  6. np
  7. :M
  8. 1 index 0 rl
  9. 0 exch rl
  10. neg 0 rl
  11. :K
  12. scale
  13. 1 lw
  14. stroke
  15. gR
  16. }bd
  17. /oh Z
  18. /ow Z
  19. /y2 Z
  20. /y1 Z
  21. /x2 Z
  22. /x1 Z
  23. /rad Z
  24. /ph Z
  25. /pw Z
  26. /arct where
  27. {
  28. pop
  29. }{
  30. /arct
  31. {
  32. arcto pop pop pop pop
  33. }bd
  34. }ifelse
  35. /@r
  36. {
  37. /oh xs
  38. /ow xs
  39. oh div
  40. /y2 xs
  41. ow div
  42. /x2 xs
  43. oh div
  44. /y1 xs
  45. ow div
  46. /x1 xs
  47. gS
  48. np
  49. ow oh scale
  50. x2 x1 add 2 div y1 :M
  51. x2 y1 x2 y2 .5 arct
  52. x2 y2 x1 y2 .5 arct
  53. x1 y2 x1 y1 .5 arct
  54. x1 y1 x2 y1 .5 arct
  55. fill
  56. gR
  57. }bd
  58. /@t
  59. {
  60. /rad xs
  61. /y2 xs
  62. /x2 xs
  63. /y1 xs
  64. /x1 xs
  65. gS
  66. np
  67. x2 x1 add 2 div y1 :M
  68. x2 y1 x2 y2 rad arct
  69. x2 y2 x1 y2 rad arct
  70. x1 y2 x1 y1 rad arct
  71. x1 y1 x2 y1 rad arct
  72. :K
  73. scale
  74. 1 lw
  75. stroke
  76. gR
  77. }bd
  78. /@u
  79. {
  80. /oh xs
  81. /ow xs
  82. /ph xs
  83. /pw xs
  84. oh div
  85. /y2 xs
  86. ow div
  87. /x2 xs
  88. oh div
  89. /y1 xs
  90. ow div
  91. /x1 xs
  92. gS
  93. np
  94. $m currentmatrix
  95. ow oh scale
  96. x2 x1 add 2 div y1 :M
  97. x2 y1 x2 y2 .5 arct
  98. x2 y2 x1 y2 .5 arct
  99. x1 y2 x1 y1 .5 arct
  100. x1 y1 x2 y1 .5 arct
  101. :K
  102. setmatrix
  103. pw ph scale
  104. 1 lw
  105. stroke
  106. gR
  107. }bd
  108. /@g
  109. {
  110. gS
  111. np
  112. 0 360 arc
  113. :K
  114. scale
  115. 1 lw
  116. stroke
  117. gR
  118. }bd
  119. /@h
  120. {
  121. gS
  122. np
  123. $m currentmatrix
  124. pop
  125. :T
  126. scale
  127. 0 0 .5 0 360 arc
  128. $m setmatrix
  129. scale
  130. 1 lw
  131. :K
  132. stroke
  133. gR
  134. }bd
  135. /@o
  136. {
  137. gS
  138. np
  139. arc
  140. scale
  141. 1 lw
  142. stroke
  143. gR
  144. }bd
  145. /@p
  146. {
  147. gS
  148. np
  149. $m currentmatrix
  150. pop
  151. :T
  152. scale
  153. 0 0 .5 5 -2 roll arc
  154. $m setmatrix
  155. scale
  156. 1 lw
  157. stroke
  158. gR
  159. }bd
  160. %%EndFile
  161.